' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/24/05 by Anne FRANK
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Assemblages\Chariot cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Chariot cabine.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.LoadFile2 "C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Assemblages\Treuil et support.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Assemblages\Treuil et support.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Treuil et support.SLDASM")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Treuil et support.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Chariot cabine.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Chariot cabine.SLDASM"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Pièces\Fin de course haut.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Fin de course haut.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.LoadFile2 "C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Assemblages\Chariot cabine.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Anne FRANK\Bureau\AMuriel\CRTECH\Dossier 220505\Dossier technique 110505\Assemblages\Chariot cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Chariot cabine.SLDASM")
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01023366312536, 0.009905250464442, -0.05698377814218, False, 0, Nothing)
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0101443574279, 0.009941463595567, -0.0527193301732, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.009896901520264, 0.01004180605344, -0.05288244359764, False, 0, Nothing)
Part.TranslateComponent
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.01, 0.01, 0, True, 0, Nothing)
Part.DeSelectByID "", "EDGE", 0.00943835682493, 0.01022774423598, -0.09610698983448
boolstatus = Part.Extension.SelectByID("", "FACE", 0.009999999999991, 0.0007721584388776, -0.04283527504384, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.009747151093691, 0.01010252929885, -0.05257622604893, False, 0, Nothing)
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Fin de course haut.SLDPRT")
swApp.ExitApp
End Sub
